home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / Hydra3_015.lha / PFiles / Hydra3 / Hydra3-Post.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-01  |  3KB  |  113 lines
  1. /********************** Hydra/3 - Postprocessing Unit ***********************
  2. *                                        *
  3. *      Copyright 1995 by Dreamer/1oo% and Neurodancer/1oo%            *
  4. *                                        *
  5. ****************************************************************************/
  6.  
  7. signal on Syntax
  8.  
  9. /************************** Multilanguage Config ***************************/
  10.  
  11. /* language 0 */
  12.  
  13. yeppo.0        ="Y"
  14. asksl.0        ="Clear Selectlist now?"
  15. thanx.0        ="Thank You for using Hydra!"
  16. fincom.0        ="Found incomplete Uploads:"
  17. contUL.0        ="Do You want to continue uploading them later? "
  18. deliUL.0        ="Deleting incomplete Uploads..."
  19.  
  20. /* language 1 */
  21.  
  22. yeppo.1        ="J"
  23. asksl.1        ="Gemerkte Files vergessen?"
  24. thanx.1        ="Vielen Dank!"
  25. fincom.1        ="Unvollstaendige Uploads gefunden:"
  26. contUL.1        ="Willst Du diese Files apäter weiter uploaden? "
  27. deliUL.1        ="Lösche die unvollstaendigen Uploads..."
  28.  
  29. /**************************** set some stuff *******************************/
  30.  
  31. version="0.15 beta"
  32.  
  33. options results
  34. bufferflush
  35.  
  36. setobject 0 ; putuser 68
  37. getuser 23 ; port=result
  38. getuser 39 ; uucpdir="Mail:Users/"result
  39. getuser 1100452 ; lng=result
  40. getuser 1209644 ; num=result
  41. getuser 1306724 ; UDloc=substr(result,7,1)
  42. getuser 2307346 ; temppath=result
  43.  
  44. transmit x2c(196631196E32196332197A342048796472612F33202D20506F737470726F63657373696E6720556E6974202D2019633356)version||x2c(20197A30)
  45.  
  46. /********************** if AO-Bit was set, unset it ************************/
  47.  
  48. getuser 1100662 ; privs=d2c(result+(result<0)*256)
  49. aopriv=BitTST(privs,5)
  50. if getclip(port'aopriv')='SET!' then do
  51.     privs=c2d(BitCLR(privs,5))
  52.     privs=privs-(privs>127)*256
  53.     setobject privs ; putuser 1100662
  54.     call setclip(port'aopriv')
  55. end
  56.  
  57. /*************** check, if there where some incomplete Uploads *************/
  58.  
  59. if (exists(uucpdir'/Hydra.BAD/BAD-XFER.LOG') & getclip(port'resume')~='SET!') then do
  60.     HydDir=showdir(uucpdir'/Hydra.BAD','files')
  61.     if HyDir='' then break
  62.     else do
  63.         transmit "n2c3"fincom.lng"c7"
  64.         open(bad,uucpdir'/Hydra.BAD/BAD-XFER.LOG','R')
  65.             do until ~eof(bad)
  66.                 Logline = readln(bad)
  67.                 parse var logline fname badname fsize x
  68.                 badsize=word(statef(uucpdir"/Hydra.BAD/"badname),2)
  69.                 transmit "c6"left(fname,20," ")" c7- c6"right(badsize,8," ")" c7of c6"right(fsize,8," ")" c7Bytes"
  70.             end
  71.         close(bad)
  72.         prompt 1 YESNO "n1c2"contUL.lng"c7[c3"yeppo.lng"c7/c2nc7] "
  73.         if upper(result)="YES" then nop
  74.         else do
  75.             transmit "c3n1"deliUL.lng"n1"
  76.             address command 'delete 'uucpdir'/Hydra.BAD/BAD-XFER.#?'
  77.         end
  78.         drop HyDir; drop Logline
  79.     end
  80. end
  81.  
  82. call setclip(port'resume')
  83.  
  84. /*********************** asking for selectlist-reset ***********************
  85. * Man beachte, dass der YESCHAR des Prompts von CNet automatisch richtig   *
  86. * uebersetzt wird -> auf "YES" checken geht daher fuer ALLE Sprachen...    *
  87. ***************************************************************************/
  88.  
  89. if num~=0 then do
  90.     prompt 1 YESNO "n1c2"asksl.lng" c7[c3"yeppo.lng"c7/c2nc7] "
  91.     if upper(result)="YES" then do
  92.         setobject 0 ; putuser 1209644
  93.     end
  94. end
  95.  
  96. /*************************** Enable Idle-Timer *****************************/
  97.  
  98. setobject 0 ; putuser 1110341
  99.  
  100. /*************************** Clean Up temppath *****************************/
  101.  
  102. address command 'delete 'temppath||port'HydFileLst 'temppath||port'HydraLog'
  103.  
  104. /********************************* END ! ***********************************/
  105.  
  106. transmit "n1c6"thanx.lng"n1"
  107.  
  108. exit
  109.  
  110. syntax:
  111. sendstring "Error occured! Line: "sigl", "rc" - "errortext(rc)
  112. exit
  113.